home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / M / MacPerl 4.13 appl.sit / MacPerl ƒ / t / base / lex.t < prev    next >
Encoding:
Text File  |  1993-10-23  |  1.1 KB  |  79 lines  |  [TEXT/MPS ]
  1. #!./perl
  2.  
  3. # $Header: lex.t,v 4.0 91/03/20 01:49:08 lwall Locked $
  4.  
  5. print "1..18\n";
  6.  
  7. $ # this is the register <space>
  8. = 'x';
  9.  
  10. print "#1    :$ : eq :x:\n";
  11. if ($  eq 'x') {print "ok 1\n";} else {print "not ok 1\n";}
  12.  
  13. $x = $#;    # this is the register $#
  14.  
  15. if ($x eq '') {print "ok 2\n";} else {print "not ok 2\n";}
  16.  
  17. $x = $#x;
  18.  
  19. if ($x eq '-1') {print "ok 3\n";} else {print "not ok 3\n";}
  20.  
  21. $x = '\\'; # ';
  22.  
  23. if (length($x) == 1) {print "ok 4\n";} else {print "not ok 4\n";}
  24.  
  25. eval 'while (0) {
  26.     print "foo\n";
  27. }
  28. /^/ && (print "ok 5\n");
  29. ';
  30.  
  31. eval '$foo{1} / 1;';
  32. if (!$@) {print "ok 6\n";} else {print "not ok 6\n";}
  33.  
  34. eval '$foo = 123+123.4+123e4+123.4E5+123.4e+5+.12;';
  35.  
  36. $foo = int($foo * 100 + .5);
  37. if ($foo eq 2591024652) {print "ok 7\n";} else {print "not ok 7 :$foo:\n";}
  38.  
  39. print <<'EOF';
  40. ok 8
  41. EOF
  42.  
  43. $foo = 'ok 9';
  44. print <<EOF;
  45. $foo
  46. EOF
  47.  
  48. eval <<\EOE, print $@;
  49. print <<'EOF';
  50. ok 10
  51. EOF
  52.  
  53. $foo = 'ok 11';
  54. print <<EOF;
  55. $foo
  56. EOF
  57. EOE
  58.  
  59. print <<`EOS` . <<\EOF;
  60. echo ok 12
  61. EOS
  62. ok 13
  63. EOF
  64.  
  65. print qq/ok 14\n/;
  66. print qq(ok 15\n);
  67.  
  68. print qq
  69. ok 16\n
  70. ;
  71.  
  72. print q<ok 17
  73. >;
  74.  
  75. print <<;   # Yow!
  76. ok 18
  77.  
  78. # previous line intentionally left blank.
  79.